4 
5 REM xmas 2023 pattern
6 
10 CLS 
15 DEF FN d(a,b,c,d)=ABS (a-c)+ABS (b-d)
20 FOR i=3 TO 15 STEP 6
25 FOR j=3 TO 15 STEP 6
40 FOR g=-3 TO 3
45 FOR h=-3 TO 3
50 LET l=i+g LET c=j+h
60 IF FN d(i,j,l,c)=3 THEN PRINT AT l,c;;
80 NEXT h
85 NEXT g
90 NEXT j
95 NEXT i
